sub EVENT_SAY {

	if ($status > 20)
	{
		if($text =~ /Hail/i)
		{
			quest::say("Just say a number for me to set appearance to.");
		}
		
		if($text >= 0 && $text <=255555555)
		{
			$npc->SetAppearance($text);
			quest::say("Setting appearance to number $text.");
		}
		
	}
  
}